Allow the image scale to be a floating point number

* src/image.c (compute_image_size): The scale can be a
floating point number.

diff --git a/src/image.c b/src/image.c
index bc5863f919c93b6e6e2fd92c4fdcec528f1732cd..ea5d231720baef865842659459b75abb99d8be15 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -8085,7 +8085,7 @@ compute_image_size (size_t width, size_t height,
   desired_height = NATNUMP (value) ? min (XFASTINT (value), INT_MAX) : -1;
 
   value = image_spec_value (spec, QCscale, NULL);
-  if (NATNUMP (value))
+  if (NUMBERP (value))
     scale = extract_float (value);
   width = width * scale;
   height = height * scale;